Begin A1_DAT_SRT_Sort

Short iC
Short tC
Short lC

If ( MenuMode == 1 )
	Return
EndIf

Set lC to 0

If ( OnActivate = 1 )
  
  Set lC to 1
  Set tC to 0

EndIf

If (lC == 1 )
  Set iC to ( Player->GetItemCount, "ingred_alit_hide_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_alit_hide_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_alit_hide_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_bc_ampoule_pod" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bc_ampoule_pod", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bc_ampoule_pod", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_ash_salts_01" )
;  MessageBox "Player has %g pieces of Ash Salts", iC
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_ash_salts_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_ash_salts_01", 1
      EndWhile
  EndIf
  
  Set iC to ( Player->GetItemCount, "ingred_ash_yam_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_ash_yam_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_ash_yam_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_bittergreen_petals_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	   Set iC to ( iC - 1 )
   	   Player->RemoveItem, "ingred_bittergreen_petals_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bittergreen_petals_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_black_anther_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_black_anther_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_black_anther_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_black_lichen_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_black_lichen_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_black_lichen_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_bloat_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bloat_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bloat_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_bonemeal_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bonemeal_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bonemeal_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_bread_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bread_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bread_01", 1
      EndWhile
  EndIf

  Set lC to 2

EndIf

If ( lC == 2 )

  Set iC to ( Player->GetItemCount, "ingred_bc_bungler's_bane" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bc_bungler's_bane", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bc_bungler's_bane", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_chokeweed_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_chokeweed_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_chokeweed_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_bc_coda_flower" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bc_coda_flower", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bc_coda_flower", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_comberry_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_comberry_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_comberry_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_coprinus_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_coprinus_01", 1
         "A1_DAT_SRT_SortBag"->AddItem, "ingred_coprinus_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_corkbulb_root_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_corkbulb_root_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_corkbulb_root_01", 1
      EndWhile
  EndIf

; It's all the same Corprus Meat, really.
; 
  Set iC to ( Player->GetItemCount, "ingred_6th_corprusmeat_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_6th_corprusmeat_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_6th_corprusmeat_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_6th_corprusmeat_02" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_6th_corprusmeat_02", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_6th_corprusmeat_02", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_6th_corprusmeat_03" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_6th_corprusmeat_03", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_6th_corprusmeat_03", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_6th_corprusmeat_04" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_6th_corprusmeat_04", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_6th_corprusmeat_04", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_6th_corprusmeat_05" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_6th_corprusmeat_05", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_6th_corprusmeat_05", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_6th_corprusmeat_06" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_6th_corprusmeat_06", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_6th_corprusmeat_06", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_6th_corprusmeat_07" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_6th_corprusmeat_07", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_6th_corprusmeat_07", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_corprus_weepings_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_corprus_weepings_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_corprus_weepings_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_crab_meat_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_crab_meat_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_crab_meat_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_daedras_heart_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_daedras_heart_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_daedras_heart_01", 1
      EndWhile
  EndIf

  Set lC to 3

EndIf

If ( lC == 3 )

  Set iC to ( Player->GetItemCount, "ingred_daedra_skin_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_daedra_skin_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_daedra_skin_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_diamond_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_diamond_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_diamond_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_dreugh_wax_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_dreugh_wax_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_dreugh_wax_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_raw_ebony_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_raw_ebony_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_raw_ebony_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_ectoplasm_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_ectoplasm_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_ectoplasm_01", 1
      EndWhile
  EndIf

; Unless noted, all good above here.

  Set iC to ( Player->GetItemCount, "food_kwama_egg_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "food_kwama_egg_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "food_kwama_egg_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "food_kwama_egg_02" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "food_kwama_egg_02", 1
        "A1_DAT_SRT_SortBag"->AddItem, "food_kwama_egg_02", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_emerald_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_emerald_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_emerald_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_fire_petal_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_fire_petal_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_fire_petal_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_fire_salts_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_fire_salts_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_fire_salts_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_frost_salts_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_frost_salts_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_frost_salts_01", 1
      EndWhile
  EndIf

  Set lC to 4

EndIf

If ( lC == 4 )

; Ditto.
  Set iC to ( Player->GetItemCount, "ingred_ghoul_heart_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_ghoul_heart_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_ghoul_heart_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_raw_glass_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_raw_glass_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_raw_glass_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_gold_kanet_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_gold_kanet_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_gold_kanet_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_gravedust_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_gravedust_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_gravedust_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_green_lichen_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_green_lichen_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_green_lichen_01", 1
      EndWhile
  EndIf
 
  Set iC to ( Player->GetItemCount, "ingred_guar_hide_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_guar_hide_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_guar_hide_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_hackle-lo_leaf_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_hackle-lo_leaf_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_hackle-lo_leaf_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_heather_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_heather_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_heather_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_hound_meat_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_hound_meat_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_hound_meat_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_bc_hypha_facia" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bc_hypha_facia", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bc_hypha_facia", 1
      EndWhile
  EndIf

  Set lC to 5

EndIf

If ( lC == 5 )

  Set iC to ( Player->GetItemCount, "ingred_kagouti_hide_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_kagouti_hide_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_kagouti_hide_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_kresh_fiber_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_kresh_fiber_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_kresh_fiber_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_kwama_cuttle_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_kwama_cuttle_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_kwama_cuttle_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_marshmerrow_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_marshmerrow_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_marshmerrow_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_moon_sugar_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_moon_sugar_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_moon_sugar_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_muck_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_muck_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_muck_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_netch_leather_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_netch_leather_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_netch_leather_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_pearl_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_pearl_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_pearl_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_racer_plumes_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_racer_plumes_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_racer_plumes_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_rat_meat_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_rat_meat_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_rat_meat_01", 1
      EndWhile
  EndIf

  Set lC to 6

EndIf

If ( lC == 6 )

  Set iC to ( Player->GetItemCount, "ingred_red_lichen_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_red_lichen_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_red_lichen_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_resin_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_resin_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_resin_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_roobrush_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_roobrush_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_roobrush_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_ruby_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_ruby_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_ruby_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_russula_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_russula_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_russula_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_saltrice_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_saltrice_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_saltrice_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_scales_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scales_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scales_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_scamp_skin_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scamp_skin_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scamp_skin_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_scrap_metal_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scrap_metal_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scrap_metal_01", 1
      EndWhile
  EndIf

  ; So, I can't spell. Get over it.
  Set iC to ( Player->GetItemCount, "ingred_scathecraw_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scathecraw_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scathecraw_01", 1
      EndWhile
  EndIf

  Set lC to 7

EndIf

If ( lC == 7 )

  Set iC to ( Player->GetItemCount, "ingred_scrib_jerky_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scrib_jerky_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scrib_jerky_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_scrib_jelly_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scrib_jelly_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scrib_jelly_01", 1
      EndWhile
  EndIf

  ; Meteor Slime is just Scrib Jelly with another name. The sooner you realise that, the
  ; happier you'll be.
  Set iC to ( Player->GetItemCount, "ingred_scrib_jelly_02" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scrib_jelly_02", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scrib_jelly_02", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_scuttle_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_scuttle_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_scuttle_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_shalk_resin_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_shalk_resin_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_shalk_resin_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_sload_soap_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_sload_soap_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_sload_soap_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_bc_spore_pod" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_bc_spore_pod", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_bc_spore_pod", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_stoneflower_petals_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_stoneflower_petals_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_stoneflower_petals_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_trama_root_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_trama_root_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_trama_root_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_vampire_dust_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_vampire_dust_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_vampire_dust_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_void_salts_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_void_salts_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_void_salts_01", 1
      EndWhile
  EndIf

  Set lC to 8

EndIf

If ( lC == 8 )

  Set iC to ( Player->GetItemCount, "ingred_wickwheat_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_wickwheat_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_wickwheat_01", 1
      EndWhile
  EndIf

  Set iC to ( Player->GetItemCount, "ingred_willow_anther_01" )
  Set tC to tC + iC
  If ( iC > 0 )
    While ( iC > 0 )
   	    Set iC to ( iC - 1 )
   	    Player->RemoveItem, "ingred_willow_anther_01", 1
        "A1_DAT_SRT_SortBag"->AddItem, "ingred_willow_anther_01", 1
      EndWhile
  EndIf

; The End is nigh!
  Set lC to 100

EndIf

If ( lC == 100 )
 
    If ( tC > 0 ) 
      PlaySound "Item Misc Up"
      MessageBox "Removed %g ingredients.", tC
    Else
      PlaySound "Menu Click"
      MessageBox "You aren't carrying any ingredients."
    EndIf

EndIf

End